﻿Public Class Form1
    Dim WithEvents dd As New DownCore
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        dd.Down()
    End Sub

    Private Sub dd_DownloadProgressChanged(sender As Object, e As Net.DownloadProgressChangedEventArgs) Handles dd.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
        Label1.Text = e.BytesReceived & "/" & e.TotalBytesToReceive
    End Sub
End Class
